home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGIALS / ADATUTR.LZH / INSTALL.EXE / FIB.DUM < prev    next >
Text File  |  1991-03-25  |  144b  |  7 lines

  1. -- Dummy solution to Outside Assignment 4
  2. separate (FIBTEST)
  3. function FIB(N : in POSITIVE) return POSITIVE is
  4. begin
  5.    return 4;
  6. end FIB;
  7.